plotG(vx,vy,char,size,color) ... Hermite Polyline modules

18b26568-cdbf-455c-8fda-de6d432d70ae 5 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

ε 1010 -^:

X 0 2.5 2.5 ε + 66 ε + 7.5 61 mat :

Y 0 6.25 0.25 0.25 22.9 32.7 61 mat :

X Y augment plotG(vx,vy,char,size,color) ... Hermite Polyline modules

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

z n RepEnd m z rows : i 1 n range w i el z 1 el : for i n 1 + (m n + (range w i el z i n - el : for i m n + 1 + (m 2 n * + (range w i el z m el : for w 51 line :

data Strip nest stripped in 'R' u data 1 col : v data 2 col : k 0 : i 1 data rows 1 - range v i 1 + el v i el ≤ (v i 1 + el v i el ≥ (¤ R k k 1 + : el u i el v i el 12 mat : 11 line Undefined if 11 line for 21 line Un-nest R v R 1 el : j 2 R rows range v v R j el stack : for v 81 line :

M Unwrap V M 1 col : i 2 M cols range V V M i col stack : for V 31 line :

data sub subspace j 1 data rows 1 - (range Vsub j el i 1 sub range vx i el data j el i sub / data 1 j + el data j el - (* + : for vx 21 line eval : 11 line for v Vsub 1 el : j 2 Vsub rows range v v Vsub j el stack : for v 31 line 21 line :

Round OFF Matrix/Vector M n Round i 1 M rows range m i el M i el n round : for m 21 line :

given polygon Xo X : Yo Y : 12 mat

t0 1 time :

Equally sub-divide  the control polygon sub 10 :

<=  populate Hermite at will t 01 0.1 range :

XY X Y augment : origin X Y + 15 blue plotG : 21 line

New Xo sub subspace Yo sub subspace augment : New Xo 1 el Yo 1 el 12 mat New stack : 21 line

isolate New New :

X New 1 col : Y New 2 col : 12 mat SUB X Y . 12 black plotG : 21 line

Polyline Construct

r 2 : X X r RepEnd : Y Y r RepEnd : 31 sys

x c 10 x ≤ (x 1 ≤ (& cases :

Hermite PolyLine t P 16 / t 3^- 3 t 2^* + 3 t * - 1 + (3 t 3^* 6 t 2^* - 4 + (3 t 3^* - 3 t 2^* + 3 t * + 1 + (t 3^41 mat * :

Hermite basis cubics 0...1

x P 1 el x c * x P 2 el x c * x P 3 el x c * x P 4 el x c * 4 1 sys

t j XP μ j 11 line : t P 1 el X μ el * t P 2 el X μ 1 + el * + t P 3 el X μ 2 + el * + t P 4 el X μ 3 + el * + 21 line :

t j YP μ j 11 line : t P 1 el Y μ el * t P 2 el Y μ 1 + el * + t P 3 el Y μ 2 + el * + t P 4 el Y μ 3 + el * + 21 line :

U j 1 X rows r 1 + (- (range : ct 1 : j j i 1 t rows range Hx i ct el t i el j XP eval : for ct ct 1 + : 21 line for Hx 41 line :

V j 1 X rows r 1 + (- (range : ct 1 : j j i 1 t rows range Hy i ct el t i el j YP eval : for ct ct 1 + : 21 line for Hy 41 line :

X rows r 1 + (- 52

collect the project xy U Unwrap V Unwrap augment : 11 sys

Hermite Parametric Polyline CAD style ... adjust fillet

origin xy XY SUB 4 1 sys

data Σ Finite differences Cumul Integration vx data 1 col : vy data 2 col : Y 1 el 0 : i 2 vx rows range Δx i el vx i el vx i 1 - el - : Y i el Y i 1 - el 12 / vy i 1 - el vy i el + (Δx i el * (* + : 21 line for vx Y augment 61 line :

Finite differences Cumulative Integral

xy Σ 1 1 sys

xy Σ xy rows row 7.5 50.431 12 mat

1 time t0 - 26.7 s *

sub [5] 50.56